5/11/2017

Temperature Anomaly

Climate change

Tree rings

Tree Ring Width Series

Long tree-ring time series

Detrend Tree Ring Width Series

Create a mean chronology

Correlate with Climate

## Running for timespan 1901 - 1983...

Reconstruct Climate

International Tree Ring Data Bank

Data available at ITRDB

Spatial Correlation

Spatial Temperature Reconstruction

Anomaly Animation Code

temp.anom <- temp_anomaly %>%
  ggplot(aes(Months, Anomaly, color = Year, group = Year, 
             frame = Year, cumulative=TRUE)) +
  geom_hline(yintercept = 0, color = 'grey50') +
  geom_line() +
  scale_color_gradientn(colours=c("grey","blue","red")) + 
  scale_y_continuous(limits=c(-3, 3)) +
  theme_bw()+
  theme(panel.grid.major=element_blank(),
        panel.grid.minor=element_blank()) +
  labs(title = 'Temperature Anomaly °C',
       subtitle = "(Difference from 1980-2015 annual mean)",
       x = '', y = 'Anomaly')

gganimate(temp.anom, ani.width=800, ani.height=450, interval=0.3)

Leaflet Map of ITRDB data

itrdb  %>%
  leaflet() %>%
  addProviderTiles('Esri.WorldTopoMap') %>%
  addCircles(~lon,
             ~lat, 
             opacity = 1, fillOpacity = 1, 
             fillColor = ~mpal(firstyear), color = ~mpal(firstyear),
             radius = 2,
             popup =  map_header)

Spatial Map of World Temperature

temp.map <- tanom %>%
  ggplot()+
  geom_tile(aes(lon, lat, fill = tmp)) +
  scale_fill_gradientn('Temperature', colours=c("blue",'grey',"red"), na.value = 'white') +
  theme_minimal()

ggplotly(temp.map)

Thank You

Trotsiuk Volodymyr